home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs47.d81
/
2400.sda
/
CALIBRATE.ML
< prev
next >
Wrap
Text File
|
2009-10-10
|
2KB
|
52 lines
8000 ;"CALIBRATE.ML"
8010 * =$3000 ;12288
8020 ML LDX #$02 ;TURN ON PORT
8030 JSR $FFC6 ;(NOW NCHKIN)
8040 JSR SETIRQ ;SET UP "MODEM"
8050 GETCHR JSR $FFE4 ;GETIN LOOP
8060 CMP #$55
8070 BEQ GETCHR ;$55 IS OK
8080 JSR $FFB7
8090 BNE GETCHR ;BUFFER EMPTY OK
8100 LDA #$2A ;ELSE PRINT "*"
8110 JSR $FFD2
8120 JMP GETCHR
8130 IRQ LDA #$FF ;OUTPUT BYTE TO
8140 STA $DC0C ; SERIAL PORT
8150 LDA $DC0D ;CLEAR IRQ
8160 JMP ($0256) ;"RI" RETURN
8170 SETIRQ SEI
8180 LDX $FB ;"CN" MODEM SPEED
8190 LDY $FC
8200 LDA #$00
8210 STA $D01A ;RASTER IRQ OFF
8220 STA $DC0F ;STOP TIMER B
8230 LDA #$7F
8240 STA $DC0D ;NMI DISABLED
8250 STA $D019 ;CLR RASTER IRQ
8260 STX $DC04 ;CNT MODEM USES
8270 STY $DC05 ; TIMER A
8280 LDA #$51 ;SERIAL=OUTPUT,
8290 STA $DC0E ; TIMER A ON
8300 LDY #$FF
8310 STY $DC0C ;START 1ST BYTE
8320 LDX #$05 ;WAIT A FEW BITS
8330 AGAIN LDA $DC0D
8340 AND #$01
8350 BEQ AGAIN
8360 DEX
8370 BNE AGAIN
8380 STY $DC0C ;THEN 2ND BYTE
8390 LDA #<IRQ ;IRQ WILL KEEP
8400 STA $0314 ; SP ONE BYTE
8410 LDA #>IRQ ; AHEAD.
8420 STA $0315
8430 LDA #$88 ;ENABLE SP IRQ
8440 STA $DC0D
8450 CLI
8460 BLANK RTS ;OR NOP (ML+107)
8470 LDA $D011 ;BLANK 40 SCREEN
8480 AND #$EF ;(TURNS OFF DMA)
8490 STA $D011
8500 RTS ;ML+116